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Paper 1 Computational thinking and programming skills —- VB.Net 


Time allowed: 2 hours 


Materials 
e There are no additional materials required for this paper. For Examiner's Use 
e You must not use a calculator. ; 
Question Mark 

Instructions 1 
e Use black ink or black ball-point pen. Use pencil only for drawing. 
e Answer all questions. 2-3 
e You must answer the questions in the spaces provided. 4-5 
e If you need extra space for your answer(s), use the lined pages at the end of 6-7 

this book. Write the question number against your answer(s). 
e Do all rough work in this book. Cross through any work you do not want 8-9 

to be marked. 10 
e Questions that require a coded solution must be answered in VB.Net. 14 
e You should assume that all indexing in code starts at 0 unless stated otherwise. FF 
Information 8 
The total number of marks available for this paper is 90. 14 

Proran | 

Advice 


For the multiple-choice questions, completely fill in the lozenge alongside the appropriate answer. 


CORRECT METHOD | @ WRONG MeTHOoS | ® | © | =| & 


If you want to change your answer you must cross out your original answer as shown. Dac 


If you wish to return to an answer previously crossed out, ring the answer you now wish to select as 
shown. 


UL ann 


Do not write 


7 outside the 
Answer all questions. box 


0/1 An algorithm, that uses the modulus operator, has been represented using 
pseudo-code in Figure 1. 


e Line numbers are included but are not part of the algorithm. 
Figure 1 


i © USERINPUT 

IF i MOD 2 = 0 THEN 
OUTPUT i * i 

ELSE 
OUTPUT i 

ENDIF 


oa h WN = 


The modulus operator is used to calculate the remainder after dividing one integer by 
another. 


For example: 
e 14 MOD 3 evaluates to 2 
e 24 MOD 5 evaluates to 4 


0 | 1 |.| 1| Shade one lozenge that shows the line number where selection is first used in the 
algorithm in Figure 1. 


[1 mark] 


A _ Line number 1 


B Line number 2 > 


C Line number 3 S 


D Line number 4 7 
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0/1).|2 
0/1)}.| 3 
0/1'|.|4 


Shade one lozenge that shows the output from the algorithm in Figure 1 when the 


user input is 4 


A 0 
B 2 
Cc 4 
D 8 
E 16 


[1 mark] 


Shade one lozenge that shows the line number where assignment is first used in the 


algorithm in Figure 1. 


A Line number 1 
B Line number 2 
Cc Line number 3 


D Line number 4 


[1 mark] 


Shade one lozenge that shows the line number that contains a relational operator in 


the algorithm in Figure 1. 


A _~ Line number 1 
B Line number 2 
C Line number 3 


D Line number 4 


Question 1 continues on the next page 


[1 mark] 


0 3 
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Figure 1 has been included again below. 


Figure 1 


i © USERINPUT 
IF i MOD 2 = 0 THEN 
OUTPUT i * i 


oauanh WD = 
ral 
EA 
ep) 
A 


0 | 1|.|5 | Shade one lozenge to show which of the following is a true statement about the 
algorithm in Figure 1. 


[1 mark] 
A __ This algorithm uses a Boolean operator. —) 
B__ This algorithm uses a named constant. [| 
C This algorithm uses iteration. —) 
D___ This algorithm uses the multiplication operator. —) 


[o[1|.[6| Figure 2 shows an implementation of the algorithm in Figure 1 using the VB.Net 
programming language. 


e Line numbers are included but are not part of the program. 


Figure 2 
1 Console.Write("Enter a number: ") 
2 Dim i As Integer = Console.ReadLine () 
3 If i Mod 2 = 0 Then 
4 Console.WriteLine(i * i) 
5 Else 
6 Console.WriteLine (i) 
7 |&End If 


The program in Figure 2 needs to be changed so that it repeats five times using 
definite (count controlled) iteration. 


Shade one lozenge next to the program that does this correctly. 
[1 mark] 
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Do not write 
outside the 
Dim x As Integer = l Pai 
While x <> 6 
Console.Write ("Enter a number: ") 


Dim i As Integer = Console.ReadLine () 
If i Mod 2 = 0 Then 


A Console.WriteLine(i * i) cs) 
Else 
Console.WriteLine (i) 
End If 
Xx =xtil 
End While 


Dim x As Integer = 6 

While x <> 0 

Console.Write ("Enter a number: ") 

Dim i As Integer = Console.ReadLine () 


If 1 Mod 2 = 0 Then 


B Console.WriteLine(i * i) ca 
Else 
Console.WriteLine (i) 
End If 
x = X - 
End While 


For x As Integer = 0 To 4 
Console.Write("Enter a number: ") 
Dim i As Integer = Console.ReadLine () 


If 1 Mod 2 = 0 Then 


Cc Console.WriteLine(i * i) S 
Else 
Console.WriteLine (i) 
End If 
Next 


For x As Integer = 0 To 5 
Console.Write ("Enter a number: ") 
Dim i As Integer = Console.ReadLine () 
If i Mod 2 = 0 Then 

D Console.WriteLine(i * i) 
Else 

Console.WriteLine (i) 

End If 

Next 
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0|2 Figure 3 shows an algorithm, represented using pseudo-code, that calculates the Box 
delivery cost for an order from a takeaway company. 


Figure 3 


orderTotal © USERINPUT 
deliveryDistance © USERINPUT 
deliveryCost € 0.0 


messageOne © "Minimum spend not met" 
messageTwo © "Delivery not possible" 
IF deliveryDistance < 5 AND orderTotal > 0.0 THEN 
IF orderTotal > 50.0 THEN 
deliveryCost ©€ 1.5 
OUTPUT deliveryCost 
ELSE IF orderTotal > 25.0 THEN 
deliveryCost © (orderTotal / 10) * 2 
OUTPUT deliveryCost 
ELSE 


OUTPUT messageOne 
ENDIF 
ELSE 


OUTPUT messageTwo 
ENDIF 


0 | 2 |.| 1} Using Figure 3, complete the table. 


[2 marks] 
Input value of Input value of 
orderTotal deliveryDistance Output 
55D 2 
35.4.0 5 


0 | 2/)|.|2 | State how many possible values the result of the comparison 
deliveryDistance < 5 could have in the algorithm shown in Figure 3. 


[1 mark] 


0 6 
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0/2|.|4 


State the most suitable data type for the following variables used in Figure 3. 


[2 marks] 


Variable identifier 


Data type 


deliveryCost 


messageOne 


State one other common data type that you have not given in your answer to 


Question 02.3. 


[1 mark] 


Turn over for the next question 
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0} 3).[2) 


Figure 4 shows a VB.Net program that calculates car park charges. 


The user inputs their car registration (eg MA19 GHJ) and the length of the stay. 
The program then outputs the charge. 


e Line numbers are included but are not part of the program. 
Figure 4 


Dim charge As Integer = 0 


Console.Write("Enter your car registration: ") 


Dim carReg As String = Console.ReadLine () 
While carReg.Length() > 8 
Dim displayMessage As String = " is not valid" 


Console.WriteLine (displayMessage) 


carReg = Console.ReadLine() 
End While 
9 Console.Write("Enter your stay in hours: ") 


ON OO FP WN = 


10 Dim hours As Integer = Console.ReadLine () 
11 If hours < 2 Then 


12 charge = 0 

13 Else 

14 charge = hours * 2 
15 End If 


16 Console.WriteLine (charge) 


Rewrite line 5 in Figure 4 to concatenate the car registration with the string 
" is not valid", and store the result in the variable displayMessage. 


Your answer must be written in VB.Net. 
[1 mark] 


The charge for parking for two or more hours is changed to include an additional £2 
fee. 


Rewrite line 14 in Figure 4 to show this change. 


Your answer must be written in VB.Net. 
[1 mark] 
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The two VB.Net programs in Figure 5 output the value that is equivalent to adding 


together the integers between 1 and an integer entered by the user. 


For example, if the user entered the integer 5, both programs would output 15 


Figure 5 


Program A 


Console.Write("Enter a number: ") 


Dim total As Integer = 0 


For i= 1 To num 

total = total + i 
Next 
Console.WriteLine (total) 


Dim num As Integer = Console.ReadLine () 


Program B 
Console.Write ("Enter a number: ") 
Dim numl As Integer 
numl = Console.ReadLine () 
Dim num2 As Integer = numl + 1 
num2 = numl * num2 
num2 = num2 \ 2 


Console.WriteLine (num2) 


[o[4].[1| Shade one lozenge to indicate which of the statements is true about the programs in 


0/47.) 2 


Figure 5. 


A __ Both programs are equally efficient. 


B- Program A is more efficient than Program B. 


C Program B is more efficient than Program A. 


Justify your answer for Question 04.1. 


[1 mark] 


[2 marks] 
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0/5 A programmer has started to write a program using VB.Net. Their program is shown Box 
in Figure 6. 


The program should generate and output 10 numbers, each of which is randomly 
selected from the numbers in a data structure called numbers. 


The program uses the Random class. 


For example, r.Next (0, 8) would generate a random integer between 0 and 7 
inclusive. 


One possible output from the finished program would be 11, 14, 14, 42, 2, 56, 56, 14, 
4,2 


e Line numbers are included but are not part of the program. 


Console.WriteLine (numbers (count) ) 
End While 


Figure 6 
1 Dim numbers = New Integer() { 11,14,56,4,12,6,42,2 } 
2 Dim count As Integer = 0 
3 Dim r As Random = new Random () 
4 While count < 10 
5 count = count + 1 
6 Dim number As Integer = r.Next(0, 8 
7 
8 


0 | 5|.| 1} The program shown in Figure 6 contains a syntax error. 


Shade two lozenges to indicate the statements that are true about syntax errors. 


[2 marks] 
A A syntax error can be found by testing boundary values in a = 
program. 
B A syntax error is a mistake in the grammar of the code. 2 
Cc A syntax error is generally harder to spot than a logic error. S 
D A syntax error will stop a program from running. S 
E An example of a syntax error is trying to access the fifth S 


character in a string which only contains four characters. 
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0 | 5 |.| 2 | The program shown in Figure 6 also contains a logic error. ie 


Identify the line number that contains the logic error, and correct this line of the 
program. 


Your corrected line must be written in VB.Net. 
[2 marks] 


Line number 


Corrected line 


[0] 5]./3| What type of data structure is the variable numbers? 


[1 mark] FE 


Turn over for the next question 


Turn over > 
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A program is being developed that allows users to rate and review movies. A user will 
enter their rating (out of 10) and a written review for each movie they have watched. 


Computational thinking skills are used during the development of the program. 


Define the term abstraction. 
[1 mark] 


[o/6]./2| A user will be able to register, log in and log out of the program. When registering, a 


new user will enter their details, before confirming their email address. 


Decomposition has been used to break the problem down into smaller 
sub-problems. 


Figure 7 represents the design of the program. 


Complete the decomposition of this program by stating what should be written in 
boxes fA) and 
[2 marks] 


Figure 7 


Movie rating 
program 


Register 


new user 


Create new View Manage 


review reviews reviews 


Authenticate 


Enter details user 


Select 
rating 


Enter 


review 


Submit 


review 


1 2 


IB/G/Jun22/8525/1C 


Do not write 
outside the 
box 


13 
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Turn over for the next question 
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Write a VB.Net program to check if an email address has been entered correctly by a box 
user. 


Your program must: 

e get the user to input an email address 

e get the user to input the email address a second time 

e output the message Match and output the email address if the email 
addresses entered are the same 

e output the message Do not match if the email addresses entered are 
not the same. 


You should use meaningful variable name(s) and VB.Net syntax in your answer. 


The answer grid below contains vertical lines to help you indent your code. 
[5 marks] 


1 4 
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Write a VB.Net program that calculates the value of a bonus payment for an box 
employee based on how many items they have sold and the number of years they 
have been employed. 


The program should: 

e get the user to input the number of items sold 

e get the user to input the number of years employed 
e output the value of the bonus payment: 

o if the years of employment is less than or equal to 2 and the number of items 
sold is greater than 100, then the bonus will be the number of items sold 
multiplied by 2 

o if the years of employment is greater than 2, then the bonus will be the number of 
items sold multiplied by 10 

o otherwise, the bonus is 0 


You should use meaningful variable name(s) and VB.Net syntax in your answer. 


The answer grid below contains vertical lines to help you indent your code. 
[7 marks] 


1 6 
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Figure 8 shows an algorithm represented using pseudo-code. 


e Line numbers are included but are not part of the algorithm. 


OUTPUT namel[0] 


NO ao fh WD = 


OUTPUT var 
SUBSTRING returns part of a string. 


For example, SUBSTRING (3, 5, 
‘gra’. 


names © ['Lily' 
namel © 'Sarah' 
name2 © 'Freddie' 


Figure 8 


, 'Thomas'"] 


OUTPUT LEN (names) 
var © SUBSTRING(0O, 3, namel) 


"programming') will return the string 


[o/9].[ 1] Shade one lozenge which shows the output of line 4 from the algorithm shown in 


Figure 8. 


Cc Lily 
D Ss 
E Sarah 


[1 mark] 


1 8 
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0 | 9 |.| 2 | Shade one lozenge which shows the output of line 5 from the algorithm shown in 


Figure 8. 
[1 mark] 
A 1 S 
B 2 S 
Cc 4 S 
D 5 S 
E 10 S 
0 | 9|.| 3 State the output of line 7 from the algorithm shown in Figure 8. 
[1 mark] 


[o}9|./4| Two extra lines are being added to the end of the algorithm in Figure 8. 


Fill in the gaps so the output from the new final line will be the string 'Thomasrah'. 
[2 marks] 


var © SUBSTRING ( ’ , namel) 


OUTPUT names [ ] + var 


Turn over for the next question 


Turn over > 
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1/0 Figure 9 shows a subroutine represented using pseudo-code. 


Figure 9 


SUBROUTINE calculate (n) 
a €n 
b € 0 
REPEAT 
a € a DIV 2 
be bude 
UNTIL a < 1 
OUTPUT b 
ENDSUBROUTINE 


The DIV operator is used for integer division. 


1|0).| 1} Complete the trace table for the subroutine call calculate (50) 


You may not need to use all the rows in the table. 


[4 marks] 


OUTPUT 


50 


2 0 
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State the value that will be output for the subroutine call calculate (1) 


[1 mark] 


The identifier for the variable b in Figure 9 was not a good choice. 


State a better identifier for this variable that makes the algorithm easier to read 


and understand. 


[1 mark] 


Question 10 continues on the next page 


2 1 
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1|0}.);4] A REPEAT...UNTIL iteration structure was used in Figure 9. Box 


Figure 9 has been included again below. 


Figure 9 


SUBROUTINE calculate (n) 
a €on 
bee 
REPEAT 
a € a DIV 2 
bebe 
UNTIL a S< 1 
OUTPUT b 
ENDSUBROUTINE 


Figure 10 shows another subroutine called calculate that uses a 
WHILE...ENDWHILE iteration structure. 


Figure 10 


SUBROUTINE calculate (n) 
a SA 
Be oO 
WHILE a > l 
a €a DIV 2 
De ibs aE 
ENDWHILE 
OUTPUT b 
ENDSUBROUTINE 


One difference in the way the subroutines in Figure 9 and Figure 10 work is: 
e the REPEAT...UNTIL iteration structure in Figure 9 loops until the condition is true 


e the WHILE...ENDWHILE iteration structure in Figure 10 loops until the condition is 
false. 


22 
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Describe two other differences in the way the subroutines in Figure 9 and Figure 10 ae 
work. 
[2 marks] 
1 
2 


Turn over for the next question 
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.| 1] The size of a sound file is calculated using the following formula: 


size (in bits) = sampling rate * sample resolution * seconds 
To calculate the size in bytes, the number is divided by 8 
The algorithm in Figure 12, represented using pseudo-code, should output the size of 
a sound file in bytes that has been sampled 100 times per second, with a sample 
resolution of 16 bits and a recording length of 60 seconds. 
A subroutine called get Size has been developed as part of the algorithm. 


Complete Figure 12 by filling in the gaps using the items in Figure 11. 


You will not need to use all the items in Figure 11. 


[6 marks] 
Figure 11 
bit byte getSize OUTPUT 
rate res RETURN sampRate 
seconds size size + 8 size * 8 
size / 8 size MOD 8 SUBROUTINE USERINPUT 
Figure 12 
SUBROUTINE getSize ( ‘ , seconds) 


€ sampRate * res * seconds 


size € 
size 
ENDSUBROUTINE 
OUTPUT (100, 16, 60) 
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1| 1.) 2] A local variable called size has been used in get Size. BOK 


Explain what is meant by a local variable in a subroutine. 


[1 mark] 
1|1.| 3] State three advantages of using subroutines. 
[3 marks] 
1 
2 
3 


Turn over for the next question 
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1|2 Figure 13 shows an algorithm represented in pseudo-code. A developer wants to box 
check the algorithm works correctly. 


e Line numbers are included but are not part of the algorithm. 


Figure 13 
1 are [Qe 1 
2 arr[1] € 'b' 
3 arr[2] € 'a' 
4 FOR i © 0 TO 1 
5 FOR j € 0 T0 1 
6 IF arr[j + 1] < arr[j] THEN 
7 temp © arr[j] 
8 arr[j] © arr[j + 1] 
9 arr[j + 1] © temp 
10 ENDIF 
11 ENDFOR 
12 ENDFOR 


2 6 
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1 | 2 |.| 1] Complete the trace table for the algorithm shown in Figure 13. 


Some values have already been entered. You may not need to use all the rows in the 


table. 
[6 marks] 
arr 
1 3 temp 
[0] [1] [2] 
Cc b a 
1 | 2 |.) 2.| State the purpose of the algorithm. 

[1 mark] 


Question 12 continues on the next page 
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1 | 2 |.|3 | Figure 13 has been included again below. box 
Figure 13 
1 err [Oy > te" 
2 arr[l] € 'b'! 
3 arr[2] © ‘a! 
4 FOR i © 0 TO 1 
5 FOR j € 0 TO 1 
6 IF arr[j + 1] < arr[j] THEN 
7 temp © arr[j] 
8 are) Care lp ak 
9 arr[j + 1] © temp 
10 ENDIF 
11 ENDFOR 
12 ENDFOR 


An earlier attempt at writing the algorithm in Figure 13 had different code for lines 4 
and 5. 


Lines 4 and 5 of the pseudo-code were: 


FOR i € 0 TO 2 
FOR j € 0 TO 2 


Explain why the algorithm did not work when the value 2 was used instead of the 
value 1 on these two lines. 


[1 mark] 
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A program is being developed in VB.Net to simulate a card game. 


Throughout the game each player always has 100 cards. Each card displays a 
number. 


Players take it in turns to swap one of their cards with another random card from a set 
of cards until a player has a run of five numbers in sequence within their 100 cards. 


Figure 14 shows part of the program that will get a player to enter the position 
of a card to swap. 


Figure 14 


Console.Write ("Enter card position: ") 


Dim position As Integer = Console.ReadLine () 


Extend the program in Figure 14. Your answer must be written in VB.Net. 


The program should keep getting the user to enter the card position until they 
enter a card position that is between 1 and 100 inclusive. 


You should use meaningful variable name(s) and VB.Net syntax in your 
answer. 


The answer grid below contains vertical lines to help you indent your code. 
[4 marks] 


Question 13 continues on the next page 
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1|3]./2 


There are 500 cards within the game in total. Each card is numbered from 1 
to 250 and each number appears twice in the whole set of cards. 


The player’s 100 cards are always stored in numerical order. 


When a player has a valid run of five cards within their 100 cards they have 
won the game. 


A valid run: 

e consists of five cards 

e can start from any position in the player’s 100 cards 

e the second card’s value is one more than the first card’s value, the third 
card’s value is one more than the second card’s value, the fourth card’s 
value is one more than the third card’s value, and the fifth card’s value is 
one more than the fourth card’s value. 

Below are examples of valid runs which means a player has won. 


Valid run example 1 


JJIWWe 


Valid run example 2 


CU |b a) 


Below are examples of invalid runs. 


Invalid run example 1 


SIIWe 


Invalid run example 2 


Siidistye 


Invalid run example 3 


SU 
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Write a VB.Net program to check if a player has a valid run of five cards within their box 
100 cards. 


When writing your program you should assume: 

e there is an array called cards that contains the values of the player’s 100 cards 

e cards (0) will contain the value of the first card and cards (99) will contain 
the value of the last card 

e the values in cards are already stored in numerical order 

e there is a Boolean variable called gameWon that has a value of False. 


Your program should set gameWon to True if there is a valid run. 
You should use meaningful variable name(s) and VB.Net syntax in your answer. 


The answer grid below contains vertical lines to help you indent your code. 
[6 marks] 


Question 13 continues on the next page 
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1/4 A program is being written to simulate a computer science revision game in the style box 
of bingo. 


At the beginning of the game a bingo ticket is generated with nine different key terms 
from computer science in a 3 x 3 grid. An example bingo ticket is provided in 


Figure 15. 
Figure 15 
CPU ALU Pixel 
NOT gate Binary LAN 
Register Cache Protocol 


The player will then be prompted to answer a series of questions. 


If an answer matches a key term on the player’s bingo ticket, then the key term will be 
marked off automatically. 


IB/G/Jun22/8525/1C 


3 4 


35 


Do not write 
outside the 


1 | 4.) 1] Figure 16 shows an incomplete VB.Net program to create a bingo ticket for a player. box 


The programmer has used a two-dimensional array called ticket to represent a 
bingo ticket. 


The program uses a subroutine called generateKeyTerm. When called, the 
subroutine will return a random key term, eg "CPU", "ALU", "NOT gate" etc. 


Complete the VB.Net program in Figure 16 by filling in the five gaps. 


e Line numbers are included but are not part of the program. 


[4 marks] 
Figure 16 

1 DiamveLeker As String(, ) = Dew String (fait ge ee 
{ers UNS gee he 
ie nh 

2 Dim i As Integer = 0 

3 While (i < 3) 

4 Dim j As Integer = 

5 While (j < 3) 

6 ticket ( ' ) = generateKeyTerm() 

7 

8 End While 

9 


10 End While 


Question 14 continues on the next page 
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Each time a player answers a question correctly the ticket array is 
updated; if their answer is in the ticket array then it is replaced with an 
asterisk (*). 


An example of the ticket array containing key terms and asterisks is 
shown in Figure 17. 


Figure 17 
0 il 2 
0 CPU ALU * 
1 x a LAN 
2 | Register Cache * 


Write a subroutine in VB.Net called checkWinner that will count the 
number of asterisks. 


The subroutine should: 

e take the ticket array as a parameter 

e count the number of asterisks in the ticket array 

e output the word Bingo if there are nine asterisks in the array 


e output the total number of asterisks if there are fewer than nine asterisks in 
the array. 


You must write your own count routine and not use any built-in count function that 
might be available in VB.Net. 


You should use meaningful variable name(s) and VB.Net syntax in your 
answer. 


The answer grid below contains vertical lines to help you indent your code. 
[8 marks] 
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Question Additional page, if required. Bon 
number Write the question numbers in the left-hand margin. 
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Question Additional page, if required. 
number Write the question numbers in the left-hand margin. 
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